home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / aetestrun.tcl next >
Encoding:
Text File  |  1993-11-18  |  284 b   |  18 lines  |  [TEXT/$Tcl]
  1.  
  2. if $AEVENT then {
  3.     if "! $ENGINE" {
  4.         AEinteract;
  5.         }
  6.     }
  7.  
  8. puts stdout "This is the test script"
  9.  
  10. set a 4
  11. set b 8
  12.  
  13. puts stdout "a times b equals [expr {$a * $b}]."
  14.  
  15. puts stdout "[format "A times B equals %08d." [expr {$a * $b}] ]"
  16.  
  17. puts stdout [format "One %d Two %d Three %d" 1 2 3]
  18.